10 SYS57812("THE SPRITES*"),8,1:POKE780,0:SYS65493:DIMA$(25) 11 FORX=1TO50:Y=INT(RND(1)*127):POKE53272,Y:NEXTX:POKE53281,0:POKE53280,0 12 POKE53272,22:PRINT"[147][144]":POKE53281,15:POKE53280,11:POKE53251,60:POKE53286,11 13 A$(1)=" [218]EITGEIST OF [200]-[212] ":POKE2040,231:POKE2041,232:POKE53271,3 14 A$(2)=" SALUTES YOU TO ":POKE53277,3:POKE53276,3:POKE53285,3 15 A$(3)=" HIS NEW [194][193][211][201][195]-[196]EMO ":POKE53287,7:POKE53288,7:POKE53248,126 16 A$(4)=" CALLED ":POKE53250,174:POKE53249,60:POKE53269,3 17 A$(5)="[215]E [196]ON'T [206]EED [211]PEED!":FORG=1TO5:POKE53265,11:POKE211,10:POKE214,10 18 SYS58732:PRINTA$(G):POKE53265,27:FORQ=1TO200:NEXTQ,G 19 F(1,1)=6:F(1,2)=4:F(1,3)=14:F(1,4)=1:F(1,5)=15:F(1,6)=12:F(1,7)=11:F(1,8)=0 20 FORX=1TO20:FORY=1TO8:POKE211,10:POKE214,10:SYS58732:POKE646,F(1,Y) 21 PRINTA$(5):POKE211,9+X:POKE214,11:SYS58732:PRINT"[144][163]":POKE211,30-X:POKE214,11 22 SYS58732:PRINT"[163]":NEXTY,X:POKE211,10:POKE214,10:SYS58732:PRINT"[151]"A$(5) 23 POKE53265,11:FORX=1TO15:POKE53265,27:FORY=1TO150-X*10:NEXT:POKE53265,11:NEXT 24 POKE53265,27:A$(1)=" [212]HIS IS MY [194][193][211][201][195]-[196]EMO FOR THE [212]IGER- " 25 A$(2)=" [196]ISC-[194]ASIC-[210]OUTINES-[195]OMPO. [212]HEY WERE " 26 A$(3)="SEARCHING FOR SOME COOL DEMO-ROUTINES," 27 A$(4)=" SO HERE THEY ARE ! [212]AKE MY MESSAGE : " 28 A$(5)="[215]E [196]ON'T [206]EED [211]PEED-[215]E [196]ON'T NEED [193]SS!" 29 FORG=1TO5:IFG/2=INT(G/2)THEN32 30 FORX=1TOLEN(A$(G)):POKE211,X:POKE214,G+14:SYS58732:PRINTMID$(A$(G),X,1) 31 NEXTX:GOTO34 32 FORX=LEN(A$(G))TO1STEP-1:POKE211,X:POKE214,G+14:SYS58732 33 PRINTMID$(A$(G),X,1):NEXTX 34 NEXTG:FORX=1TO8:FORY=0TO15:POKE53280,Y:NEXTY,X:POKE53280,11 35 A$(14)="[212]HIS IS A :-) FUNNY EFFECT,ISN'T IT ? " 36 A$(15)="[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-" 37 A$(16)=" [218]APE DERECH CHASEK MOTNAJIM SMEZ " 38 A$(17)="KOACH M OD,ZAPE DERECH CHASEK MOTNAJIM" 39 A$(18)=" AMEZ KOACH M' OD. [218]APE DERECH CHASEK " 40 A$(19)=" MOTNAJIM AMEZ KOACH M' OD. " 41 A$(20)="[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-[192]-" 42 A$(21)=" [212]HAT'S AN OLD JEWISH FOLK-SONG. [212]HAT " 43 A$(22)="WOULD MEAN SOMETHING LIKE : [204]OOK FOR- " 44 A$(23)=" WARD, BUT BE CAREFUL OF YOUR WAY ! ":POKE646,1 45 FORX=1TO38:IFX/2=INT(X/2)THEN47 46 FORY=14TO23:POKE211,X:POKE214,Y:SYS58732:PRINTMID$(A$(Y),X,1):NEXTY:GOTO48 47 FORY=23TO14STEP-1:POKE211,X:POKE214,Y:SYS58732:PRINTMID$(A$(Y),X,1):NEXTY 48 NEXTX 55 A$(14)="[198]ED UP WITH TEXT-EFFECTS ? [215]ELL,SIMPEL" 56 A$(15)=" BUT FUNNY,[201] THINK :-). " 57 A$(16)="--------------------------------------" 58 A$(17)=" [215]ELL,WELL,BUT HERE'S MY COLORLINE #2 " 59 A$(18)="FOR ALL THE ONES WHO LIKE TO USE IT IN" 60 A$(19)=" THEIR OWN COOL [194][193][211][201][195]-[196]EMOS : " 61 A$(20)=" " 62 A$(21)=" 06 , 04 , 14 , 01 , 15, 12 , 11 , 00" 63 A$(22)=" " 64 A$(23)=" [212]HESE ARE MY FAVOURITE COLORCODES. ":POKE646,12 65 FORX=1TO8000:NEXT:FORX=38TO1STEP-1: IFX/2=INT(X/2)THEN67 66 FORY=14TO23:POKE211,X:POKE214,Y:SYS58732:PRINTMID$(A$(Y),X,1):NEXTY:GOTO68 67 FORY=23TO14STEP-1:POKE211,X:POKE214,Y:SYS58732:PRINTMID$(A$(Y),X,1):NEXTY 68 NEXTX:FORX=1TO8000:NEXT:POKE53269,0:PRINT"[147]":FORX=1TO50:Y=INT(RND(1)*127) 69 POKE53272,Y::NEXT:POKE53272,22:POKE2040,224:POKE2041,225 70 POKE53276,7:POKE53277,7:POKE53285,11:POKE53286,12:POKE53287,0:POKE53288,0 71 POKE53248,35:POKE53249,160:POKE53271,7:POKE53250,35:POKE53251,202 72 POKE53269,3:POKE53264,3:A$(1)="[196]IZ IS A GOOD CHANCE TO SHOUT OUT" 73 A$(2)="SOME MAGICAL GREEZ,[201] THINK.....":A$(3)=" " 74 A$(4)="[212]IGER[195]REW,[204]OPEZ,[213]NLOCK,[215]OTAN":A$(5)="[205]ETALVOTZE,[212][193][201][199][197][210],[197]DWING,[211]HARK" 75 A$(6)="[195]REAM":A$(7)=" ....AND ALL [200]IGH-[212]ECH'S :":A$(8)=" " 76 A$(9)="[208]HOENIX,[202][212][210],[199]HOST,[210]A!,[193][212][200]":A$(10)="[199]UNHED [194]ATTAION,[212][211][214],[210]OBIN [200]OOD" 77 F(2,1)=0:F(2,2)=6:F(2,3)=2:F(2,4)=5:F(2,5)=7:F(2,6)=1 78 A$(11)=" ":A$(12)="[193]NYWAY,EV'RYTHING HAVE TO FINISH":POKE53289,0 79 A$(13)="SOMEDAY.[211]O WE'VE NEARLY REACHED THE":POKE53252,35:POKE53253,210 80 A$(14)="END OF YOUR NEW FAVE-DEMO !":A$(15)=" ":A$(16)="[194]UT NEVER FORGET :" 81 A$(16)="[215]E ALL LOVE OUR [194]ROTKASTEN -":A$(17)="[196]ON'T LET'EM DIE !!!" 92 FORG=1TO17:POKE2040,227:POKE2041,228:FORX=1TO8:POKE646,F(1,X):POKE211,1 93 POKE214,G:SYS58732:PRINTA$(G):NEXTX:FORX=6TO1STEP-1:POKE646,F(2,X):POKE211,1 94 POKE214,G:SYS58732:PRINTA$(G):NEXTX:POKE2040,224:POKE2041,225:FORQ=1TO300 95 NEXTQ,G:POKE53269,7:FORG=1TO10:FORQ=1TO4:POKE2042,242+Q:FORY=1TO50:NEXTY,Q,G 100 POKE53269,4:POKE53271,0:POKE53277,0:POKE2042,247:POKE53276,0:POKE211,5 101 POKE214,20:SYS58732:PRINT"[151][217]EAH ! [200]OPE YA ENJOYED OUR TIME" 102 PRINTTAB(5)"TOGETHER ! [211]EE YA...[218]EITGEIST/[200]-[212]":FORX=1TO3000:NEXTX 103 FORG=1TO21:IFG/2=INT(G/2)THEN105 104 FORX=1TO38:POKE211,X:POKE214,G:SYS58732:PRINT" ":NEXTX:GOTO106 105 FORX=38TO1STEP-1:POKE211,X:POKE214,G:SYS58732:PRINT" ":NEXT 106 NEXTG:POKE53269,0:FORG=1TO10:FORQ=0TO15:POKE53280,Q:NEXTQ,G:SYS64738